home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1390.dms / var1390.adf / else / else.amosSourceCode
AMOS Source Code  |  1993-05-31  |  778b  |  30 lines
  1. '
  2. SECURE
  3. '
  4. Procedure SECURE
  5. If Not Exist("df0:over_to") Then BOMB
  6. If Not Exist("df0:princess.amos") Then BOMB
  7. If Not Exist("df0:totris.amos") Then BOMB
  8. If Not Exist("df0:bs.amos") Then BOMB
  9. If Not Exist("df0:docs/beat.doc") Then BOMB
  10. If Not Exist("df0:docs/intro.doc") Then BOMB
  11. Run "ram:Over_to"
  12. End Proc
  13. Procedure BOMB
  14. Break Off 
  15. Curs Off : Flash Off 
  16. Cls 0 : Paper 0
  17. Locate 0,5
  18. Centre "This is not a complete copy of" : Print 
  19. Centre "KIDS DISK - 2" : Print : Print 
  20. Centre "Please write to me and let me know" : Print 
  21. Centre "where it came from so that I can " : Print 
  22. Centre "go round there and sort them out!" : Print : Print 
  23. Print "     Duncan Moran"
  24. Print "     24 First Avenue, "
  25. Print "     Colwyn Bay,"
  26. Print "     Clwyd,"
  27. Print "     LL28 4DQ "
  28. Do 
  29. Loop 
  30. End Proc